home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.02 Feb 90 / cdev Shell Code / cdevShell.r < prev    next >
Encoding:
Text File  |  1989-08-07  |  5.5 KB  |  364 lines  |  [TEXT/MPS ]
  1. #include "SysTypes.r"
  2. #include "Types.r"
  3.  
  4. resource 'PAT ' (-16000, purgeable) {
  5.     $"40 00 04 00 40 00 04"
  6. };
  7.  
  8. resource 'ICN#' (128, "Other") {
  9.     {    /* array: 2 elements */
  10.         /* [1] */
  11.         $"00 00 00 00 00 7F FF 80 00 80 00 40 01 00 00 20"
  12.         $"02 00 00 10 04 3C 00 08 08 24 00 04 08 20 00 02"
  13.         $"08 3D F0 02 08 04 40 02 08 24 40 02 08 3C 5E 02"
  14.         $"08 00 52 02 08 00 52 02 08 00 12 02 08 00 12 F2"
  15.         $"08 00 1E 92 08 00 00 92 08 00 00 F2 08 00 00 82"
  16.         $"08 00 00 82 04 00 00 82 02 00 00 02 01 00 00 04"
  17.         $"00 80 00 08 00 40 00 10 00 20 00 20 00 1F FF C0",
  18.         /* [2] */
  19.         $"00 00 00 00 00 7F FF 80 00 FF FF C0 01 FF FF E0"
  20.         $"03 FF FF F0 07 FF FF F8 0F FF FF FC 0F FF FF FE"
  21.         $"0F FF FF FE 0F FF FF FE 0F FF FF FE 0F FF FF FE"
  22.         $"0F FF FF FE 0F FF FF FE 0F FF FF FE 0F FF FF FE"
  23.         $"0F FF FF FE 0F FF FF FE 0F FF FF FE 0F FF FF FE"
  24.         $"0F FF FF FE 07 FF FF FE 03 FF FF FE 01 FF FF FC"
  25.         $"00 FF FF F8 00 7F FF F0 00 3F FF E0 00 1F FF C0"
  26.     }
  27. };
  28.  
  29. resource 'DLOG' (-16000, purgeable) {
  30.     {58, 117, 311, 437},
  31.     documentProc,
  32.     invisible,
  33.     goAway,
  34.     0x0,
  35.     -16000,
  36.     "Control Panel"
  37. };
  38.  
  39. resource 'DLOG' (128, "Msg Masks") {
  40.     {50, 60, 286, 450},
  41.     dBoxProc,
  42.     visible,
  43.     goAway,
  44.     0x0,
  45.     128,
  46.     ""
  47. };
  48.  
  49. resource 'DLOG' (132, "About...") {
  50.     {62, 104, 172, 398},
  51.     dBoxProc,
  52.     visible,
  53.     noGoAway,
  54.     0x0,
  55.     132,
  56.     ""
  57. };
  58.  
  59. resource 'DITL' (-15999, purgeable) {
  60.     {    {65, 85, 85, 155},
  61.         Button {
  62.             enabled,
  63.             "OK"
  64.         },
  65.         {8, 60, 56, 235},
  66.         StaticText {
  67.             disabled,
  68.             ""
  69.         },
  70.         {61, 81, 89, 159},
  71.         UserItem {
  72.             disabled
  73.         },
  74.         {10, 20, 42, 52},
  75.         Icon {
  76.             enabled,
  77.             0
  78.         }
  79.     }
  80. };
  81.  
  82. resource 'DITL' (-16000, purgeable) {
  83.     {    {241, 1, 253, 87},
  84.         StaticText {
  85.             enabled,
  86.             "3.3.1"
  87.         },
  88.         {1, 1, 242, 88},
  89.         UserItem {
  90.             enabled
  91.         }
  92.     }
  93. };
  94.  
  95. resource 'DITL' (-15998, purgeable) {
  96.     {    {5, 7, 100, 227},
  97.         StaticText {
  98.             disabled,
  99.             "Contributions by:\n   Steve Horowitz—the "
  100.             "main man\n   scott douglass\n   Kristee Kr"
  101.             "eitman\n   Amy Goldsmith"
  102.         },
  103.         {113, 155, 134, 224},
  104.         Button {
  105.             enabled,
  106.             "Continue"
  107.         }
  108.     }
  109. };
  110.  
  111. resource 'DITL' (130) {
  112.     {    {139, 189, 159, 249},
  113.         Button {
  114.             enabled,
  115.             "OK"
  116.         },
  117.         {29, 30, 124, 251},
  118.         StaticText {
  119.             disabled,
  120.             "Fatal Error: ^0"
  121.         }
  122.     }
  123. };
  124.  
  125. resource 'DITL' (128) {
  126.     {    {202, 300, 222, 360},
  127.         Button {
  128.             enabled,
  129.             "OK"
  130.         },
  131.         {201, 212, 221, 272},
  132.         Button {
  133.             enabled,
  134.             "Cancel"
  135.         },
  136.         {40, 24, 62, 102},
  137.         CheckBox {
  138.             enabled,
  139.             "initDev"
  140.         },
  141.         {70, 24, 84, 110},
  142.         CheckBox {
  143.             enabled,
  144.             "hitDev"
  145.         },
  146.         {100, 24, 115, 104},
  147.         CheckBox {
  148.             enabled,
  149.             "closeDev"
  150.         },
  151.         {130, 24, 146, 106},
  152.         CheckBox {
  153.             enabled,
  154.             "nulDev"
  155.         },
  156.         {160, 24, 176, 112},
  157.         CheckBox {
  158.             enabled,
  159.             "updateDev"
  160.         },
  161.         {40, 160, 61, 251},
  162.         CheckBox {
  163.             enabled,
  164.             "activDev"
  165.         },
  166.         {70, 160, 92, 276},
  167.         CheckBox {
  168.             enabled,
  169.             "deActiveDev"
  170.         },
  171.         {100, 160, 116, 253},
  172.         CheckBox {
  173.             enabled,
  174.             "keyEvtDev"
  175.         },
  176.         {130, 160, 148, 261},
  177.         CheckBox {
  178.             enabled,
  179.             "macDev"
  180.         },
  181.         {160, 160, 180, 268},
  182.         CheckBox {
  183.             enabled,
  184.             "undoDev"
  185.         },
  186.         {40, 282, 69, 368},
  187.         CheckBox {
  188.             enabled,
  189.             "cutDev"
  190.         },
  191.         {70, 282, 100, 367},
  192.         CheckBox {
  193.             enabled,
  194.             "copyDev"
  195.         },
  196.         {100, 282, 127, 369},
  197.         CheckBox {
  198.             enabled,
  199.             "pasteDev"
  200.         },
  201.         {130, 282, 154, 374},
  202.         CheckBox {
  203.             enabled,
  204.             "clearDev"
  205.         },
  206.         {160, 282, 184, 365},
  207.         CheckBox {
  208.             enabled,
  209.             "cursorDev"
  210.         },
  211.         {8, 8, 33, 278},
  212.         StaticText {
  213.             disabled,
  214.             "Mark Boxes to Disable cdev Messages:"
  215.         }
  216.     }
  217. };
  218.  
  219. resource 'DITL' (131) {
  220.     {    {106, 168, 126, 228},
  221.         Button {
  222.             enabled,
  223.             "OK"
  224.         },
  225.         {7, 14, 98, 228},
  226.         StaticText {
  227.             disabled,
  228.             "Warning: ^0"
  229.         }
  230.     }
  231. };
  232.  
  233. resource 'DITL' (132) {
  234.     {    {80, 217, 100, 277},
  235.         Button {
  236.             enabled,
  237.             "OK"
  238.         },
  239.         {12, 51, 32, 238},
  240.         StaticText {
  241.             disabled,
  242.             "cdev Shell for Pascal"
  243.         },
  244.         {48, 52, 68, 235},
  245.         StaticText {
  246.             disabled,
  247.             "© 1989 by J. Peter Hoddie"
  248.         }
  249.     }
  250. };
  251.  
  252. resource 'CNTL' (-4048, purgeable) {
  253.     {26, 122, 43, 170},
  254.     0,
  255.     visible,
  256.     1,
  257.     0,
  258.     radioButProcUseWFont,
  259.     0,
  260.     "Show"
  261. };
  262.  
  263. resource 'MENU' (128, "Apple Menu") {
  264.     1,
  265.     textMenuProc,
  266.     0x7FFFFFFD,
  267.     enabled,
  268.     apple,
  269.     {    "About it...", noIcon, noKey, noMark, plain,
  270.         "-", noIcon, noKey, noMark, plain
  271.     }
  272. };
  273.  
  274. resource 'MENU' (129, "Files") {
  275.     2,
  276.     textMenuProc,
  277.     0x7FFFFFFB,
  278.     enabled,
  279.     "File",
  280.     {    "Open", noIcon, "O", noMark, plain,
  281.         "Close", noIcon, "W", noMark, plain,
  282.         "-", noIcon, noKey, noMark, plain,
  283.         "Quit", noIcon, "Q", noMark, plain
  284.     }
  285. };
  286.  
  287. resource 'MENU' (130, "Edit", preload) {
  288.     3,
  289.     textMenuProc,
  290.     0x7FFFFFFD,
  291.     enabled,
  292.     "Edit",
  293.     {    "Undo", noIcon, "Z", noMark, plain,
  294.         "-", noIcon, noKey, noMark, plain,
  295.         "Cut", noIcon, "X", noMark, plain,
  296.         "Copy", noIcon, "C", noMark, plain,
  297.         "Paste", noIcon, "V", noMark, plain,
  298.         "Clear", noIcon, noKey, noMark, plain
  299.     }
  300. };
  301.  
  302. resource 'MENU' (131, "Options") {
  303.     4,
  304.     textMenuProc,
  305.     allEnabled,
  306.     enabled,
  307.     "Options",
  308.     {    "Msg Masks...", noIcon, noKey, noMark, plain,
  309.         "Force Update", noIcon, noKey, noMark, plain
  310.     }
  311. };
  312.  
  313. resource 'MBAR' (256) {
  314.     {    128,
  315.         129,
  316.         130,
  317.         131
  318.     }
  319. };
  320.  
  321. resource 'ALRT' (-16000, purgeable) {
  322.     {48, 128, 188, 368},
  323.     -15998,
  324.     {
  325.         OK, visible, silent,
  326.         OK, visible, silent,
  327.         OK, visible, silent,
  328.         OK, visible, silent
  329.     }
  330. };
  331.  
  332. resource 'ALRT' (130, "Fatal Error") {
  333.     {56, 126, 238, 410},
  334.     130,
  335.     {    OK, visible, sound1,
  336.         OK, visible, sound1,
  337.         OK, visible, sound1,
  338.         OK, visible, sound1
  339.     }
  340. };
  341.  
  342. resource 'ALRT' (131, "Warning Error") {
  343.     {54, 134, 192, 378},
  344.     131,
  345.     {    OK, visible, sound1,
  346.         OK, visible, sound1,
  347.         OK, visible, sound1,
  348.         OK, visible, sound1
  349.     }
  350. };
  351.  
  352. data 'msks' (128) {
  353.     $"00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
  354.     };
  355.  
  356. resource 'WIND' (128, "Other Window") {
  357.     {38, 388, 80, 510},
  358.     documentProc,
  359.     visible,
  360.     noGoAway,
  361.     0x0,
  362.     "OtherWindow"
  363. };
  364.